home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / zeller.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-01-15  |  1.0 KB  |  46 lines
  1. program zeller(input, output);
  2. {t+ }
  3. var     day, month, year,
  4.         zday, m, y1, y2 : integer;
  5.         NewDay          : String[4];
  6.  
  7. begin
  8.    writeln('This program computes the day of the Week from the Date');
  9.    writeln;
  10.    write('Enter month:');
  11.    read(month);
  12.    writeln;
  13.    write('Enter day:');
  14.    read(day);
  15.    writeln;
  16.    write('Enter year XXXX :');
  17.    read(year);
  18.    if month < 3
  19.    then begin
  20.       m:=month + 10;
  21.       year:=year - 1
  22.    end else
  23.       m:=month - 2;
  24.  
  25.    y1:=year div 100;
  26.    y2:=year mod 100;
  27.  
  28.    zday:=(day + trunc(2.6*m - 0.1)
  29.               + y2 + y2 div 4
  30.                    + y1 div 4 - 2*y1 + 49) mod 7;
  31.  
  32.    writeln;
  33.    Case zday of
  34.         0 : Newday := 'Sun';
  35.         1 : Newday := 'Mon';
  36.         2 : NewDay := 'Tue';
  37.         3 : NewDay := 'Wed';
  38.         4 : NewDay := 'Thu';
  39.         5 : NewDay := 'Fri';
  40.         6 : NewDay := 'Sat';
  41.     end;
  42.  
  43.    write('Day of the week:',Newday)
  44. end.
  45.  
  46.